home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  83 lines
  1. 1000 rem *** ein sprite-paar ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten laden
  10. 1090 :
  11. 1100 for n = 896 to 958   :rem 1.sprite
  12. 1105 :   read spdta
  13. 1110 :   poke n, spdta
  14. 1130 next n
  15. 1140 print". ";           :rem pktausgb
  16. 1150 :
  17. 1160 for n = 960 to 1022  :rem 2.sprite
  18. 1165 :   read spdta
  19. 1170 :   poke n, spdta
  20. 1190 next n
  21. 1200 print". ";           :rem pktausgb
  22. 1210 :
  23. 1220 data   0, 28,  0,  0, 62,  0
  24. 1230 data   0, 62,  0,  0, 62,  0
  25. 1240 data   0, 28,  0,  0,  8,  0
  26. 1250 data   0,255,128,  0,255,128
  27. 1260 data   0,190,128,  0,156,128
  28. 1270 data   0,136,128,  0,190,128
  29. 1280 data   0,190,128,  1,156,192
  30. 1290 data   1,148,192,  0, 20,  0
  31. 1300 data   0, 20,  0,  0, 20,  0
  32. 1310 data   0, 54,  0,  0,119,  0
  33. 1320 data   0,119,  0
  34. 1330 :
  35. 1340 data   0, 28,  0,  0, 62,  0
  36. 1350 data   0, 62,  0,  0,127,  0
  37. 1360 data   0, 93,  0,  0,  8,  0
  38. 1370 data   0,127,  0,  0,127,  0
  39. 1380 data   0, 93,  0,  0, 73,  0
  40. 1390 data   0, 93,  0,  0,127,  0
  41. 1400 data   0,255,128,  0, 62,  0
  42. 1410 data   0, 62,  0,  0, 20,  0
  43. 1420 data   0, 20,  0,  0, 20,  0
  44. 1430 data   0, 20,  0,  0, 54,  0
  45. 1440 data   0,119,  0
  46. 1450 :
  47. 1460 :
  48. 1470 rem ** sprite-register vorbereiten
  49. 1480 :
  50. 1490 print "[147]"      :rem schirm loesch.
  51. 1500 vic = 53248    :rem grafikbaustein
  52. 1510 :
  53. 1520 poke 2040,14   :rem datenzeiger 0
  54. 1530 poke 2041,15   :rem datenzeiger 1
  55. 1540 :
  56. 1550 poke vic,124   :rem horzntl.pos. 0
  57. 1560 poke vic+2,173 :rem horzntl.pos. 1
  58. 1570 poke vic+1,150 :rem vertkal.pos. 0
  59. 1580 poke vic+3,150 :rem vertkal.pos. 1
  60. 1590 :
  61. 1600 poke vic+39,3  :rem 0 ist hellblau
  62. 1610 poke vic+40,7  :rem 1 ist gelb
  63. 1620 :
  64. 1630 poke vic+23,3  :rem beide sprites
  65. 1640 poke vic+29,3  :rem dopp. groesse
  66. 1650 :
  67. 1660 poke vic+21,3  :rem beide sichtb.
  68. 1670 :
  69. 1680 :
  70. 1690 rem ** prog.ende mit tastendruck
  71. 1700 :
  72. 1710 get kp$
  73. 1720 if kp$ = "" then 1710
  74. 1730 :
  75. 1740 :
  76. 1750 rem ** ruecksetzen des registers
  77. 1760 :
  78. 1770 poke vic+21,0  :rem sprites aus
  79. 1780 poke vic+29,0  :rem und wieder
  80. 1790 poke vic+23,0  :rem normalgroesse
  81. 1800 :
  82. 1810 end
  83.